﻿
Public Class ImageMediaFile
    Inherits MediaFileBase
    Implements IImageMediaFile

#Region "Constants"
    Public Const DEFAULT_THUMBNAIL_HEIGHT As Integer = 110
    Public Const DEFAULT_THUMBNAIL_WIDTH As Integer = 110
#End Region

#Region "Fields"
    Private _Dimensions As ImageDimensions
    Private _Thumbnail As ImageMediaFile
#End Region

#Region "Properties"
    Public ReadOnly Property Dimensions() As ImageDimensions Implements IImageMediaFile.Dimensions
        Get
            Return _Dimensions
        End Get
    End Property

    Public ReadOnly Property Thumbnail(Optional ByVal Height As Integer = -1, Optional ByVal width As Integer = -1) As IImageMediaFile Implements IImageMediaFile.Thumbnail
        Get
            Throw New NotImplementedException
        End Get
    End Property
#End Region
#Region "Constructors"
    Public Sub New(ByVal source As Uri)
        MyBase.New(source)
    End Sub
#End Region

#Region "Methods"
    Public Sub Resize(ByVal Height As Integer, ByVal Width As Integer, Optional ByVal MaintainAspectRatio As Boolean = True) Implements IImageMediaFile.Resize

    End Sub
#End Region
End Class
